unit Class_Evid;

interface
uses
  Classes,SysUtils;

type
  TEvid=class(TObject)
  public
    Idex:string;
    Code:string;
    NumA:string;
    NumB:string;
    NumC:string;
    NumD:string;
    NumE:string;
    Date:string;
  public
    function GetCode:string;  
  end;
implementation

{ TEvid }

function TEvid.GetCode: string;
begin
  Result:=NumA+NumB+NumC+NumD+NumE;
end;

end.
